home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Basic Tutorial / mctest1 < prev    next >
Lisp/Scheme  |  1998-10-26  |  515b  |  33 lines
  1. ; tutorial example 1 -  mctest1
  2.  
  3. (setq symbols '(a b c d e f g))
  4.  
  5. (def-symbol
  6.   test1 symbols
  7.   test2 symbols
  8.   test3 symbols
  9.   test4 symbols
  10. )
  11.  
  12. (def-length
  13.   default '1/16
  14. )
  15.  
  16. (setq tonals (activate-tonality (chromatic c 6) (chromatic c 5)))
  17.  
  18. (def-channel
  19.    test1 1
  20.    test2 2
  21.    test3 3
  22.    test4 4
  23. )
  24.  
  25. (compile-song-p "ccl;output:" 1/1 "test2"
  26.  
  27. ; BARS              |---|---|---|---|
  28. changes tonals     " ..."
  29. test1   changes    "-   "
  30. test2   changes    " -  "
  31. test3   changes    "  - "
  32. test4   changes    "   -"
  33. )